home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / comms / other / ftransapiv1.3 / arexx / ftransmd2.mdrx < prev    next >
Text File  |  1999-11-30  |  2KB  |  48 lines
  1. /**************************
  2.  * Microdot-II Translator *
  3.  * By FTranslator Client  *
  4.  *                        *
  5.  * Script by Chris Young  *
  6.  *                        *
  7.  * Tested Microdot-II 1.3 *
  8.  **************************
  9.  
  10.  Usage/Installation:
  11.  Copy to Microdot's Rexx drawer
  12.  
  13.  To translate, select message to translate and choose
  14.  "Translate.mdrx" from the ARexx menu
  15.  
  16.  $VER: Translate.mdrx 1.1 (25.09.99)
  17.  
  18. */
  19.  
  20. Options Results
  21.  
  22. tmpfile = 'T:FTransTmp.MD2'
  23. tmpclip = 'T:FTransMD2.Clip'
  24.  
  25. if ~SHOW('LIBRARIES','rmh.library') then do
  26.   if ~ADDLIB('rmh.library',0,-30,0) then exit
  27. end
  28.  
  29. if exists(tmpclip) then do
  30.   EasyRequest('FTranslation port is open! Translation in progress, wait...','Translate.mdrx','OK')
  31.   exit
  32. end
  33.  
  34. trans = EasyRequest('Select the direction to translate' || d2c(10) || '1  - English   to Francais' || d2c(10) || '2  - English   to Deutsch' || d2c(10) || '3  - English   to Italiano' || d2c(10) || '4  - English   to Portugues' || d2c(10) || '5  - English   to Espanol' || d2c(10) || '6  - Francais  to English' || d2c(10) || '7  - Deutsch   to English' || d2c(10) || '8  - Italiano  to English' || d2c(10) || '9  - Espanol   to English' || d2c(10) || '10 - Portugues to English','Translate.mdrx','1|2|3|4|5|6|7|8|9|10|Cancel')
  35. if(trans = 0) then exit
  36. trans = trans - 1
  37.  
  38. ExtractSelectedMsgs tmpfile 'NOREQ'
  39. ExtractSelectedMsgs tmpclip 'PART 1 NOREQ'
  40.  
  41. comm = 'C:FTranslator -F "'tmpclip'" -D 'trans' SILENCE >> 'tmpfile
  42. ADDRESS COMMAND comm
  43. address command 'delete >nil:' tmpclip
  44.  
  45. MailImport tmpfile
  46. address command 'multiview' tmpfile
  47.  
  48.